home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Programmer's Power Pack
/
Delphi Volume 1.iso
/
s_to_z
/
tmmplot
/
demo.dpr
next >
Wrap
Text File
|
1996-09-15
|
441b
|
26 lines
program Demo;
uses
Forms,
Main in 'MAIN.PAS' {MainForm},
Settings in 'SETTINGS.PAS' {SettingsDlg};
{$R *.RES}
var
SaveExit: Pointer;
procedure ExitApp; far;
begin
ExitProc := SaveExit;
end;
begin
SaveExit := ExitProc;
ExitProc := @ExitApp;
Application.Title := 'HPGLDEMO';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TSettingsDlg, SettingsDlg);
Application.Run;
end.